home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAPCP02.ZIP / CW-PV-10 / PRO-VOTE.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1995-11-15  |  30KB  |  1,753 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     Integer  INTEGER014
  33.     Integer  INTEGER015
  34.     Integer  INTEGER016
  35.     Integer  INTEGER017
  36.     Integer  INTEGER018
  37.     Integer  INTEGER019
  38.     Integer  INTEGER020
  39.     Integer  INTEGER021
  40.     String   STRING001
  41.     String   STRING002
  42.     String   STRING003
  43.     String   STRING004
  44.     String   STRING005
  45.     String   STRING006
  46.     String   STRING007
  47.     String   STRING008
  48.     String   STRING009
  49.     String   STRING010
  50.     String   STRING011
  51.     String   STRING012
  52.     String   STRING013
  53.     String   STRING014
  54.     String   STRING015
  55.     String   STRING016
  56.     String   STRING017
  57.     String   STRING018
  58.     String   STRING019
  59.     String   STRING020
  60.     String   STRING021
  61.     String   STRING022
  62.     String   STRING023
  63.     String   STRING024
  64.     String   STRING025
  65.     String   STRING026
  66.     String   STRING027
  67.     String   STRING028
  68.  
  69. ;------------------------------------------------------------------------------
  70.  
  71.     GetUser
  72.     STRING022 = "1.0"
  73.     STRING023 = U_Name()
  74.     INTEGER016 = 36
  75.     INTEGER019 = 30147
  76.     FOpen 1, PPEPath() + "PRO-VOTE.CNF", 0, 0
  77.     FGet 1, STRING001
  78.     FGet 1, INTEGER020
  79.     FGet 1, INTEGER018
  80.     FGet 1, STRING028
  81.     FGet 1, INTEGER005
  82.     FClose 1
  83.     Tokenize STRING001
  84.     GetToken STRING009
  85.     GetToken STRING010
  86.     If (INTEGER020 == 0) Then
  87.         STRING011 = "Y"
  88.     Else
  89.         STRING006 = Left(STRING009, 1)
  90.         STRING007 = Left(STRING010, 2)
  91.         STRING008 = STRING006 + STRING007
  92.         If (STRING006 == "A") INTEGER021 = 1934
  93.         If (STRING006 == "B") INTEGER021 = 2859
  94.         If (STRING006 == "C") INTEGER021 = 3743
  95.         If (STRING006 == "D") INTEGER021 = 4660
  96.         If (STRING006 == "E") INTEGER021 = 5534
  97.         If (STRING006 == "F") INTEGER021 = 6471
  98.         If (STRING006 == "G") INTEGER021 = 7325
  99.         If (STRING006 == "H") INTEGER021 = 8287
  100.         If (STRING006 == "I") INTEGER021 = 9119
  101.         If (STRING006 == "J") INTEGER021 = 1096
  102.         If (STRING006 == "K") INTEGER021 = 2928
  103.         If (STRING006 == "L") INTEGER021 = 3885
  104.         If (STRING006 == "M") INTEGER021 = 4737
  105.         If (STRING006 == "N") INTEGER021 = 5674
  106.         If (STRING006 == "O") INTEGER021 = 6546
  107.         If (STRING006 == "P") INTEGER021 = 7463
  108.         If (STRING006 == "Q") INTEGER021 = 8355
  109.         If (STRING006 == "R") INTEGER021 = 9242
  110.         If (STRING006 == "S") INTEGER021 = 1164
  111.         If (STRING006 == "T") INTEGER021 = 2031
  112.         If (STRING006 == "U") INTEGER021 = 3973
  113.         If (STRING006 == "V") INTEGER021 = 4820
  114.         If (STRING006 == "W") INTEGER021 = 5782
  115.         If (STRING006 == "X") INTEGER021 = 6619
  116.         If (STRING006 == "Y") INTEGER021 = 7591
  117.         If (STRING006 == "Z") INTEGER021 = 8408
  118.         INTEGER017 = S2I(STRING008, INTEGER016) + INTEGER020 + INTEGER019 + INTEGER021
  119.         If (INTEGER018 == INTEGER017) Then
  120.             If (Len(INTEGER020) == 1) STRING003 = "000"
  121.             If (Len(INTEGER020) == 2) STRING003 = "00"
  122.             If (Len(INTEGER020) == 3) STRING003 = "0"
  123.             If (Len(INTEGER020) == 4) STRING003 = ""
  124.             STRING004 = INTEGER020
  125.             STRING005 = STRING003 + STRING004
  126.             If (Len(STRING001) == 30) STRING002 = ""
  127.             If (Len(STRING001) == 29) STRING002 = ""
  128.             If (Len(STRING001) == 28) STRING002 = " "
  129.             If (Len(STRING001) == 27) STRING002 = " "
  130.             If (Len(STRING001) == 26) STRING002 = "  "
  131.             If (Len(STRING001) == 25) STRING002 = "  "
  132.             If (Len(STRING001) == 24) STRING002 = "   "
  133.             If (Len(STRING001) == 23) STRING002 = "   "
  134.             If (Len(STRING001) == 22) STRING002 = "    "
  135.             If (Len(STRING001) == 21) STRING002 = "    "
  136.             If (Len(STRING001) == 20) STRING002 = "     "
  137.             If (Len(STRING001) == 19) STRING002 = "     "
  138.             If (Len(STRING001) == 18) STRING002 = "      "
  139.             If (Len(STRING001) == 17) STRING002 = "      "
  140.             If (Len(STRING001) == 16) STRING002 = "       "
  141.             If (Len(STRING001) == 15) STRING002 = "       "
  142.             If (Len(STRING001) == 14) STRING002 = "        "
  143.             If (Len(STRING001) == 13) STRING002 = "        "
  144.             If (Len(STRING001) == 12) STRING002 = "         "
  145.             If (Len(STRING001) == 11) STRING002 = "         "
  146.             If (Len(STRING001) == 10) STRING002 = "          "
  147.             If (Len(STRING001) == 9) STRING002 = "          "
  148.             If (Len(STRING001) == 8) STRING002 = "           "
  149.             If (Len(STRING001) == 7) STRING002 = "           "
  150.             If (Len(STRING001) == 6) STRING002 = "            "
  151.             If (Len(STRING001) == 5) STRING002 = "            "
  152.         Else
  153.             Cls
  154.             PrintLn 
  155.             PrintLn "                       @X50┌──────────────────────────────@X5D┐@X07"
  156.             PrintLn "                       @X50│        @X5BPro-Vote  v1.0        @X5D│@X07"
  157.             PrintLn "                       @X50│                              @X5D│@X07"
  158.             PrintLn "                       @X50│      @X5BAborting Operation      @X5D│@X07"
  159.             PrintLn "                       @X50│                              @X5D│@X07"
  160.             PrintLn "                       @X50│  @X5BInvalid Registration Code!  @X5D│@X07"
  161.             PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  162.             Delay 182
  163.             End
  164.         Endif
  165.     Endif
  166.     Cls
  167.     PrintLn 
  168.     PrintLn "                       @X50┌──────────────────────────────@X5D┐@X0D"
  169.     PrintLn "                       @X50│        @X5APro-Vote  v", STRING022, "        @X5D│@X0D"
  170.     PrintLn "                       @X50│                              @X5D│@X0D"
  171.     If (STRING011 == "N") Then
  172.         PrintLn "                       @X50│         @X51UNREGISTERED         @X5D│@X07"
  173.         PrintLn "                       @X50│                              @X5D│@X0D"
  174.         PrintLn "                       @X50│   @X5BRegistration is only $10   @X5D│@X07"
  175.         PrintLn "                       @X50│@X5BPlease help support shareware.@X5D│@X07"
  176.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  177.         Beep
  178.         Delay 125
  179.     Else
  180.         PrintLn "                       @X50│          @X5BReg # ", STRING005, "    @POS:55@@X5D│@X07"
  181.         PrintLn "                       @X50│@X5B", STRING002, STRING001, "@POS:55@@X5D│@X07"
  182.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  183.         PrintLn 
  184.         PrintLn 
  185.         PrintLn 
  186.         Wait
  187.     Endif
  188.     :LABEL001
  189.     Cls
  190.     DispFile STRING028, 4 + 2 + 1
  191.     STRING027 = ""
  192.     InputStr "A) Answer Questionnaire/Poll or V) View Results", STRING027, 11, 1, Mask_Alpha(), 2 + 8
  193.     If (STRING027 == "A") Goto LABEL002
  194.     If (STRING027 == "V") Goto LABEL067
  195.     If (STRING027 == "") Goto LABEL073
  196.     Goto LABEL001
  197.     :LABEL002
  198.     INTEGER004 = ""
  199.     InputStr "Questionnaire/Poll to Answer", INTEGER004, 11, 2, Mask_Num(), 2 + 128
  200.     If (INTEGER004 > INTEGER005) Goto LABEL071
  201.     If (INTEGER004 == 1) Goto LABEL003
  202.     If (INTEGER004 == 2) Goto LABEL005
  203.     If (INTEGER004 == 3) Goto LABEL007
  204.     If (INTEGER004 == 4) Goto LABEL009
  205.     If (INTEGER004 == 5) Goto LABEL011
  206.     If (INTEGER004 == 6) Goto LABEL013
  207.     If (INTEGER004 == 7) Goto LABEL015
  208.     If (INTEGER004 == 8) Goto LABEL017
  209.     If (INTEGER004 == 9) Goto LABEL019
  210.     If (INTEGER004 == 10) Goto LABEL021
  211.     If (INTEGER004 == 11) Goto LABEL023
  212.     If (INTEGER004 == 12) Goto LABEL025
  213.     If (INTEGER004 == 13) Goto LABEL027
  214.     If (INTEGER004 == 14) Goto LABEL029
  215.     If (INTEGER004 == 15) Goto LABEL031
  216.     If (INTEGER004 == 16) Goto LABEL033
  217.     If (INTEGER004 == 17) Goto LABEL035
  218.     If (INTEGER004 == 18) Goto LABEL037
  219.     If (INTEGER004 == 19) Goto LABEL039
  220.     If (INTEGER004 == 20) Goto LABEL041
  221.     If (INTEGER004 == 21) Goto LABEL043
  222.     If (INTEGER004 == 22) Goto LABEL045
  223.     If (INTEGER004 == 23) Goto LABEL047
  224.     If (INTEGER004 == 24) Goto LABEL049
  225.     If (INTEGER004 == 25) Goto LABEL051
  226.     If (INTEGER004 == 26) Goto LABEL053
  227.     If (INTEGER004 == 27) Goto LABEL055
  228.     If (INTEGER004 == 28) Goto LABEL057
  229.     If (INTEGER004 == 29) Goto LABEL059
  230.     If (INTEGER004 == 30) Goto LABEL061
  231.     If (INTEGER004 == 31) Goto LABEL063
  232.     If (INTEGER004 == 32) Goto LABEL065
  233.     :LABEL003
  234.     FOpen 1, PPEPath() + "Q01.PV", 0, 0
  235.     FGet 1, STRING025
  236.     FGet 1, INTEGER002
  237.     FClose 1
  238.     If (Exist(PPEPath() + "Q01N.PV")) Then
  239.         FOpen 1, PPEPath() + "Q01N.PV", 0, 0
  240.         For INTEGER001 = 1 To INTEGER002
  241.             FGet 1, STRING024
  242.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  243.         Next
  244.         FClose 1
  245.         Goto LABEL004
  246.     Endif
  247.     :LABEL004
  248.     FOpen 1, PPEPath() + "Q01.PV", 0, 0
  249.     Gosub LABEL106
  250.     INTEGER004 = ""
  251.     Gosub LABEL108
  252.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  253.     If (INTEGER004 > INTEGER003) Goto LABEL072
  254.     If (INTEGER004 == "0") Goto LABEL001
  255.     If (INTEGER004 == "") Goto LABEL001
  256.     FAppend 1, PPEPath() + "Q01N.PV", 2, 3
  257.     FPutLn 1, STRING023
  258.     FClose 1
  259.     FOpen 1, PPEPath() + "Q01.PV", 0, 0
  260.     Gosub LABEL106
  261.     INTEGER002 = INTEGER002 + 1
  262.     Gosub LABEL109
  263.     FOpen 1, PPEPath() + "Q01.PV", 1, 0
  264.     Gosub LABEL107
  265.     Goto LABEL001
  266.     :LABEL005
  267.     If (STRING011 == "N") Goto LABEL070
  268.     FOpen 1, PPEPath() + "Q02.PV", 0, 0
  269.     FGet 1, STRING025
  270.     FGet 1, INTEGER002
  271.     FClose 1
  272.     If (Exist(PPEPath() + "Q02N.PV")) Then
  273.         FOpen 1, PPEPath() + "Q02N.PV", 0, 0
  274.         For INTEGER001 = 1 To INTEGER002
  275.             FGet 1, STRING024
  276.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  277.         Next
  278.         FClose 1
  279.         Goto LABEL006
  280.     Endif
  281.     :LABEL006
  282.     FOpen 1, PPEPath() + "Q02.PV", 0, 0
  283.     Gosub LABEL106
  284.     INTEGER004 = ""
  285.     Gosub LABEL108
  286.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  287.     If (INTEGER004 > INTEGER003) Goto LABEL072
  288.     If (INTEGER004 == "") Goto LABEL001
  289.     FAppend 1, PPEPath() + "Q02N.PV", 2, 3
  290.     FPutLn 1, STRING023
  291.     FClose 1
  292.     FOpen 1, PPEPath() + "Q02.PV", 0, 0
  293.     Gosub LABEL106
  294.     INTEGER002 = INTEGER002 + 1
  295.     Gosub LABEL109
  296.     FOpen 1, PPEPath() + "Q02.PV", 1, 0
  297.     Gosub LABEL107
  298.     Goto LABEL001
  299.     :LABEL007
  300.     If (STRING011 == "N") Goto LABEL070
  301.     FOpen 1, PPEPath() + "Q03.PV", 0, 0
  302.     FGet 1, STRING025
  303.     FGet 1, INTEGER002
  304.     FClose 1
  305.     If (Exist(PPEPath() + "Q03N.PV")) Then
  306.         FOpen 1, PPEPath() + "Q03N.PV", 0, 0
  307.         For INTEGER001 = 1 To INTEGER002
  308.             FGet 1, STRING024
  309.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  310.         Next
  311.         FClose 1
  312.         Goto LABEL008
  313.     Endif
  314.     :LABEL008
  315.     FOpen 1, PPEPath() + "Q03.PV", 0, 0
  316.     Gosub LABEL106
  317.     INTEGER004 = ""
  318.     Gosub LABEL108
  319.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  320.     If (INTEGER004 > INTEGER003) Goto LABEL072
  321.     If (INTEGER004 == "") Goto LABEL001
  322.     FAppend 1, PPEPath() + "Q03N.PV", 2, 3
  323.     FPutLn 1, STRING023
  324.     FClose 1
  325.     FOpen 1, PPEPath() + "Q03.PV", 0, 0
  326.     Gosub LABEL106
  327.     INTEGER002 = INTEGER002 + 1
  328.     Gosub LABEL109
  329.     FOpen 1, PPEPath() + "Q03.PV", 1, 0
  330.     Gosub LABEL107
  331.     Goto LABEL001
  332.     :LABEL009
  333.     If (STRING011 == "N") Goto LABEL070
  334.     FOpen 1, PPEPath() + "Q04.PV", 0, 0
  335.     FGet 1, STRING025
  336.     FGet 1, INTEGER002
  337.     FClose 1
  338.     If (Exist(PPEPath() + "Q04N.PV")) Then
  339.         FOpen 1, PPEPath() + "Q04N.PV", 0, 0
  340.         For INTEGER001 = 1 To INTEGER002
  341.             FGet 1, STRING024
  342.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  343.         Next
  344.         FClose 1
  345.         Goto LABEL010
  346.     Endif
  347.     :LABEL010
  348.     FOpen 1, PPEPath() + "Q04.PV", 0, 0
  349.     Gosub LABEL106
  350.     INTEGER004 = ""
  351.     Gosub LABEL108
  352.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  353.     If (INTEGER004 > INTEGER003) Goto LABEL072
  354.     If (INTEGER004 == "") Goto LABEL001
  355.     FAppend 1, PPEPath() + "Q04N.PV", 2, 3
  356.     FPutLn 1, STRING023
  357.     FClose 1
  358.     FOpen 1, PPEPath() + "Q04.PV", 0, 0
  359.     Gosub LABEL106
  360.     INTEGER002 = INTEGER002 + 1
  361.     Gosub LABEL109
  362.     FOpen 1, PPEPath() + "Q04.PV", 1, 0
  363.     Gosub LABEL107
  364.     Goto LABEL001
  365.     :LABEL011
  366.     If (STRING011 == "N") Goto LABEL070
  367.     FOpen 1, PPEPath() + "Q05.PV", 0, 0
  368.     FGet 1, STRING025
  369.     FGet 1, INTEGER002
  370.     FClose 1
  371.     If (Exist(PPEPath() + "Q05N.PV")) Then
  372.         FOpen 1, PPEPath() + "Q05N.PV", 0, 0
  373.         For INTEGER001 = 1 To INTEGER002
  374.             FGet 1, STRING024
  375.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  376.         Next
  377.         FClose 1
  378.         Goto LABEL012
  379.     Endif
  380.     :LABEL012
  381.     FOpen 1, PPEPath() + "Q05.PV", 0, 0
  382.     Gosub LABEL106
  383.     INTEGER004 = ""
  384.     Gosub LABEL108
  385.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  386.     If (INTEGER004 > INTEGER003) Goto LABEL072
  387.     If (INTEGER004 == "") Goto LABEL001
  388.     FAppend 1, PPEPath() + "Q05N.PV", 2, 3
  389.     FPutLn 1, STRING023
  390.     FClose 1
  391.     FOpen 1, PPEPath() + "Q05.PV", 0, 0
  392.     Gosub LABEL106
  393.     INTEGER002 = INTEGER002 + 1
  394.     Gosub LABEL109
  395.     FOpen 1, PPEPath() + "Q05.PV", 1, 0
  396.     Gosub LABEL107
  397.     Goto LABEL001
  398.     :LABEL013
  399.     If (STRING011 == "N") Goto LABEL070
  400.     FOpen 1, PPEPath() + "Q06.PV", 0, 0
  401.     FGet 1, STRING025
  402.     FGet 1, INTEGER002
  403.     FClose 1
  404.     If (Exist(PPEPath() + "Q06N.PV")) Then
  405.         FOpen 1, PPEPath() + "Q06N.PV", 0, 0
  406.         For INTEGER001 = 1 To INTEGER002
  407.             FGet 1, STRING024
  408.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  409.         Next
  410.         FClose 1
  411.         Goto LABEL014
  412.     Endif
  413.     :LABEL014
  414.     FOpen 1, PPEPath() + "Q06.PV", 0, 0
  415.     Gosub LABEL106
  416.     INTEGER004 = ""
  417.     Gosub LABEL108
  418.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  419.     If (INTEGER004 > INTEGER003) Goto LABEL072
  420.     If (INTEGER004 == "0") Goto LABEL001
  421.     If (INTEGER004 == "") Goto LABEL001
  422.     FAppend 1, PPEPath() + "Q06N.PV", 2, 3
  423.     FPutLn 1, STRING023
  424.     FClose 1
  425.     FOpen 1, PPEPath() + "Q06.PV", 0, 0
  426.     Gosub LABEL106
  427.     INTEGER002 = INTEGER002 + 1
  428.     Gosub LABEL109
  429.     FOpen 1, PPEPath() + "Q06.PV", 1, 0
  430.     Gosub LABEL107
  431.     Goto LABEL001
  432.     :LABEL015
  433.     If (STRING011 == "N") Goto LABEL070
  434.     FOpen 1, PPEPath() + "Q07.PV", 0, 0
  435.     FGet 1, STRING025
  436.     FGet 1, INTEGER002
  437.     FClose 1
  438.     If (Exist(PPEPath() + "Q07N.PV")) Then
  439.         FOpen 1, PPEPath() + "Q07N.PV", 0, 0
  440.         For INTEGER001 = 1 To INTEGER002
  441.             FGet 1, STRING024
  442.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  443.         Next
  444.         FClose 1
  445.         Goto LABEL016
  446.     Endif
  447.     :LABEL016
  448.     FOpen 1, PPEPath() + "Q07.PV", 0, 0
  449.     Gosub LABEL106
  450.     INTEGER004 = ""
  451.     Gosub LABEL108
  452.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  453.     If (INTEGER004 > INTEGER003) Goto LABEL072
  454.     If (INTEGER004 == "") Goto LABEL001
  455.     FAppend 1, PPEPath() + "Q07N.PV", 2, 3
  456.     FPutLn 1, STRING023
  457.     FClose 1
  458.     FOpen 1, PPEPath() + "Q07.PV", 0, 0
  459.     Gosub LABEL106
  460.     INTEGER002 = INTEGER002 + 1
  461.     Gosub LABEL109
  462.     FOpen 1, PPEPath() + "Q07.PV", 1, 0
  463.     Gosub LABEL107
  464.     Goto LABEL001
  465.     :LABEL017
  466.     If (STRING011 == "N") Goto LABEL070
  467.     FOpen 1, PPEPath() + "Q08.PV", 0, 0
  468.     FGet 1, STRING025
  469.     FGet 1, INTEGER002
  470.     FClose 1
  471.     If (Exist(PPEPath() + "Q08N.PV")) Then
  472.         FOpen 1, PPEPath() + "Q08N.PV", 0, 0
  473.         For INTEGER001 = 1 To INTEGER002
  474.             FGet 1, STRING024
  475.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  476.         Next
  477.         FClose 1
  478.         Goto LABEL018
  479.     Endif
  480.     :LABEL018
  481.     FOpen 1, PPEPath() + "Q08.PV", 0, 0
  482.     Gosub LABEL106
  483.     INTEGER004 = ""
  484.     Gosub LABEL108
  485.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  486.     If (INTEGER004 > INTEGER003) Goto LABEL072
  487.     If (INTEGER004 == "") Goto LABEL001
  488.     FAppend 1, PPEPath() + "Q08N.PV", 2, 3
  489.     FPutLn 1, STRING023
  490.     FClose 1
  491.     FOpen 1, PPEPath() + "Q08.PV", 0, 0
  492.     Gosub LABEL106
  493.     INTEGER002 = INTEGER002 + 1
  494.     Gosub LABEL109
  495.     FOpen 1, PPEPath() + "Q08.PV", 1, 0
  496.     Gosub LABEL107
  497.     Goto LABEL001
  498.     :LABEL019
  499.     If (STRING011 == "N") Goto LABEL070
  500.     FOpen 1, PPEPath() + "Q09.PV", 0, 0
  501.     FGet 1, STRING025
  502.     FGet 1, INTEGER002
  503.     FClose 1
  504.     If (Exist(PPEPath() + "Q09N.PV")) Then
  505.         FOpen 1, PPEPath() + "Q09N.PV", 0, 0
  506.         For INTEGER001 = 1 To INTEGER002
  507.             FGet 1, STRING024
  508.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  509.         Next
  510.         FClose 1
  511.         Goto LABEL020
  512.     Endif
  513.     :LABEL020
  514.     FOpen 1, PPEPath() + "Q09.PV", 0, 0
  515.     Gosub LABEL106
  516.     INTEGER004 = ""
  517.     Gosub LABEL108
  518.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  519.     If (INTEGER004 > INTEGER003) Goto LABEL072
  520.     If (INTEGER004 == "") Goto LABEL001
  521.     FAppend 1, PPEPath() + "Q09N.PV", 2, 3
  522.     FPutLn 1, STRING023
  523.     FClose 1
  524.     FOpen 1, PPEPath() + "Q09.PV", 0, 0
  525.     Gosub LABEL106
  526.     INTEGER002 = INTEGER002 + 1
  527.     Gosub LABEL109
  528.     FOpen 1, PPEPath() + "Q09.PV", 1, 0
  529.     Gosub LABEL107
  530.     Goto LABEL001
  531.     :LABEL021
  532.     If (STRING011 == "N") Goto LABEL070
  533.     FOpen 1, PPEPath() + "Q10.PV", 0, 0
  534.     FGet 1, STRING025
  535.     FGet 1, INTEGER002
  536.     FClose 1
  537.     If (Exist(PPEPath() + "Q10N.PV")) Then
  538.         FOpen 1, PPEPath() + "Q10N.PV", 0, 0
  539.         For INTEGER001 = 1 To INTEGER002
  540.             FGet 1, STRING024
  541.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  542.         Next
  543.         FClose 1
  544.         Goto LABEL022
  545.     Endif
  546.     :LABEL022
  547.     FOpen 1, PPEPath() + "Q10.PV", 0, 0
  548.     Gosub LABEL106
  549.     INTEGER004 = ""
  550.     Gosub LABEL108
  551.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  552.     If (INTEGER004 > INTEGER003) Goto LABEL072
  553.     If (INTEGER004 == "") Goto LABEL001
  554.     FAppend 1, PPEPath() + "Q10N.PV", 2, 3
  555.     FPutLn 1, STRING023
  556.     FClose 1
  557.     FOpen 1, PPEPath() + "Q10.PV", 0, 0
  558.     Gosub LABEL106
  559.     INTEGER002 = INTEGER002 + 1
  560.     Gosub LABEL109
  561.     FOpen 1, PPEPath() + "Q10.PV", 1, 0
  562.     Gosub LABEL107
  563.     Goto LABEL001
  564.     :LABEL023
  565.     If (STRING011 == "N") Goto LABEL070
  566.     FOpen 1, PPEPath() + "Q11.PV", 0, 0
  567.     FGet 1, STRING025
  568.     FGet 1, INTEGER002
  569.     FClose 1
  570.     If (Exist(PPEPath() + "Q11N.PV")) Then
  571.         FOpen 1, PPEPath() + "Q11N.PV", 0, 0
  572.         For INTEGER001 = 1 To INTEGER002
  573.             FGet 1, STRING024
  574.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  575.         Next
  576.         FClose 1
  577.         Goto LABEL024
  578.     Endif
  579.     :LABEL024
  580.     FOpen 1, PPEPath() + "Q11.PV", 0, 0
  581.     Gosub LABEL106
  582.     INTEGER004 = ""
  583.     Gosub LABEL108
  584.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  585.     If (INTEGER004 > INTEGER003) Goto LABEL072
  586.     If (INTEGER004 == "0") Goto LABEL001
  587.     If (INTEGER004 == "") Goto LABEL001
  588.     FAppend 1, PPEPath() + "Q11N.PV", 2, 3
  589.     FPutLn 1, STRING023
  590.     FClose 1
  591.     FOpen 1, PPEPath() + "Q11.PV", 0, 0
  592.     Gosub LABEL106
  593.     INTEGER002 = INTEGER002 + 1
  594.     Gosub LABEL109
  595.     FOpen 1, PPEPath() + "Q11.PV", 1, 0
  596.     Gosub LABEL107
  597.     Goto LABEL001
  598.     :LABEL025
  599.     If (STRING011 == "N") Goto LABEL070
  600.     FOpen 1, PPEPath() + "Q12.PV", 0, 0
  601.     FGet 1, STRING025
  602.     FGet 1, INTEGER002
  603.     FClose 1
  604.     If (Exist(PPEPath() + "Q12N.PV")) Then
  605.         FOpen 1, PPEPath() + "Q12N.PV", 0, 0
  606.         For INTEGER001 = 1 To INTEGER002
  607.             FGet 1, STRING024
  608.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  609.         Next
  610.         FClose 1
  611.         Goto LABEL026
  612.     Endif
  613.     :LABEL026
  614.     FOpen 1, PPEPath() + "Q12.PV", 0, 0
  615.     Gosub LABEL106
  616.     INTEGER004 = ""
  617.     Gosub LABEL108
  618.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  619.     If (INTEGER004 > INTEGER003) Goto LABEL072
  620.     If (INTEGER004 == "") Goto LABEL001
  621.     FAppend 1, PPEPath() + "Q12N.PV", 2, 3
  622.     FPutLn 1, STRING023
  623.     FClose 1
  624.     FOpen 1, PPEPath() + "Q12.PV", 0, 0
  625.     Gosub LABEL106
  626.     INTEGER002 = INTEGER002 + 1
  627.     Gosub LABEL109
  628.     FOpen 1, PPEPath() + "Q12.PV", 1, 0
  629.     Gosub LABEL107
  630.     Goto LABEL001
  631.     :LABEL027
  632.     If (STRING011 == "N") Goto LABEL070
  633.     FOpen 1, PPEPath() + "Q13.PV", 0, 0
  634.     FGet 1, STRING025
  635.     FGet 1, INTEGER002
  636.     FClose 1
  637.     If (Exist(PPEPath() + "Q13N.PV")) Then
  638.         FOpen 1, PPEPath() + "Q13N.PV", 0, 0
  639.         For INTEGER001 = 1 To INTEGER002
  640.             FGet 1, STRING024
  641.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  642.         Next
  643.         FClose 1
  644.         Goto LABEL028
  645.     Endif
  646.     :LABEL028
  647.     FOpen 1, PPEPath() + "Q13.PV", 0, 0
  648.     Gosub LABEL106
  649.     INTEGER004 = ""
  650.     Gosub LABEL108
  651.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  652.     If (INTEGER004 > INTEGER003) Goto LABEL072
  653.     If (INTEGER004 == "") Goto LABEL001
  654.     FAppend 1, PPEPath() + "Q13N.PV", 2, 3
  655.     FPutLn 1, STRING023
  656.     FClose 1
  657.     FOpen 1, PPEPath() + "Q13.PV", 0, 0
  658.     Gosub LABEL106
  659.     INTEGER002 = INTEGER002 + 1
  660.     Gosub LABEL109
  661.     FOpen 1, PPEPath() + "Q13.PV", 1, 0
  662.     Gosub LABEL107
  663.     Goto LABEL001
  664.     :LABEL029
  665.     If (STRING011 == "N") Goto LABEL070
  666.     FOpen 1, PPEPath() + "Q14.PV", 0, 0
  667.     FGet 1, STRING025
  668.     FGet 1, INTEGER002
  669.     FClose 1
  670.     If (Exist(PPEPath() + "Q14N.PV")) Then
  671.         FOpen 1, PPEPath() + "Q14N.PV", 0, 0
  672.         For INTEGER001 = 1 To INTEGER002
  673.             FGet 1, STRING024
  674.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  675.         Next
  676.         FClose 1
  677.         Goto LABEL030
  678.     Endif
  679.     :LABEL030
  680.     FOpen 1, PPEPath() + "Q14.PV", 0, 0
  681.     Gosub LABEL106
  682.     INTEGER004 = ""
  683.     Gosub LABEL108
  684.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  685.     If (INTEGER004 > INTEGER003) Goto LABEL072
  686.     If (INTEGER004 == "") Goto LABEL001
  687.     FAppend 1, PPEPath() + "Q14N.PV", 2, 3
  688.     FPutLn 1, STRING023
  689.     FClose 1
  690.     FOpen 1, PPEPath() + "Q14.PV", 0, 0
  691.     Gosub LABEL106
  692.     INTEGER002 = INTEGER002 + 1
  693.     Gosub LABEL109
  694.     FOpen 1, PPEPath() + "Q14.PV", 1, 0
  695.     Gosub LABEL107
  696.     Goto LABEL001
  697.     :LABEL031
  698.     If (STRING011 == "N") Goto LABEL070
  699.     FOpen 1, PPEPath() + "Q15.PV", 0, 0
  700.     FGet 1, STRING025
  701.     FGet 1, INTEGER002
  702.     FClose 1
  703.     If (Exist(PPEPath() + "Q15N.PV")) Then
  704.         FOpen 1, PPEPath() + "Q15N.PV", 0, 0
  705.         For INTEGER001 = 1 To INTEGER002
  706.             FGet 1, STRING024
  707.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  708.         Next
  709.         FClose 1
  710.         Goto LABEL032
  711.     Endif
  712.     :LABEL032
  713.     FOpen 1, PPEPath() + "Q15.PV", 0, 0
  714.     Gosub LABEL106
  715.     INTEGER004 = ""
  716.     Gosub LABEL108
  717.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  718.     If (INTEGER004 > INTEGER003) Goto LABEL072
  719.     If (INTEGER004 == "") Goto LABEL001
  720.     FAppend 1, PPEPath() + "Q15N.PV", 2, 3
  721.     FPutLn 1, STRING023
  722.     FClose 1
  723.     FOpen 1, PPEPath() + "Q15.PV", 0, 0
  724.     Gosub LABEL106
  725.     INTEGER002 = INTEGER002 + 1
  726.     Gosub LABEL109
  727.     FOpen 1, PPEPath() + "Q15.PV", 1, 0
  728.     Gosub LABEL107
  729.     Goto LABEL001
  730.     :LABEL033
  731.     If (STRING011 == "N") Goto LABEL070
  732.     FOpen 1, PPEPath() + "Q16.PV", 0, 0
  733.     FGet 1, STRING025
  734.     FGet 1, INTEGER002
  735.     FClose 1
  736.     If (Exist(PPEPath() + "Q16N.PV")) Then
  737.         FOpen 1, PPEPath() + "Q16N.PV", 0, 0
  738.         For INTEGER001 = 1 To INTEGER002
  739.             FGet 1, STRING024
  740.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  741.         Next
  742.         FClose 1
  743.         Goto LABEL034
  744.     Endif
  745.     :LABEL034
  746.     FOpen 1, PPEPath() + "Q16.PV", 0, 0
  747.     Gosub LABEL106
  748.     INTEGER004 = ""
  749.     Gosub LABEL108
  750.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  751.     If (INTEGER004 > INTEGER003) Goto LABEL072
  752.     If (INTEGER004 == "0") Goto LABEL001
  753.     If (INTEGER004 == "") Goto LABEL001
  754.     FAppend 1, PPEPath() + "Q16N.PV", 2, 3
  755.     FPutLn 1, STRING023
  756.     FClose 1
  757.     FOpen 1, PPEPath() + "Q16.PV", 0, 0
  758.     Gosub LABEL106
  759.     INTEGER002 = INTEGER002 + 1
  760.     Gosub LABEL109
  761.     FOpen 1, PPEPath() + "Q16.PV", 1, 0
  762.     Gosub LABEL107
  763.     Goto LABEL001
  764.     :LABEL035
  765.     If (STRING011 == "N") Goto LABEL070
  766.     FOpen 1, PPEPath() + "Q17.PV", 0, 0
  767.     FGet 1, STRING025
  768.     FGet 1, INTEGER002
  769.     FClose 1
  770.     If (Exist(PPEPath() + "Q17N.PV")) Then
  771.         FOpen 1, PPEPath() + "Q17N.PV", 0, 0
  772.         For INTEGER001 = 1 To INTEGER002
  773.             FGet 1, STRING024
  774.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  775.         Next
  776.         FClose 1
  777.         Goto LABEL036
  778.     Endif
  779.     :LABEL036
  780.     FOpen 1, PPEPath() + "Q17.PV", 0, 0
  781.     Gosub LABEL106
  782.     INTEGER004 = ""
  783.     Gosub LABEL108
  784.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  785.     If (INTEGER004 > INTEGER003) Goto LABEL072
  786.     If (INTEGER004 == "") Goto LABEL001
  787.     FAppend 1, PPEPath() + "Q17N.PV", 2, 3
  788.     FPutLn 1, STRING023
  789.     FClose 1
  790.     FOpen 1, PPEPath() + "Q17.PV", 0, 0
  791.     Gosub LABEL106
  792.     INTEGER002 = INTEGER002 + 1
  793.     Gosub LABEL109
  794.     FOpen 1, PPEPath() + "Q17.PV", 1, 0
  795.     Gosub LABEL107
  796.     Goto LABEL001
  797.     :LABEL037
  798.     If (STRING011 == "N") Goto LABEL070
  799.     FOpen 1, PPEPath() + "Q18.PV", 0, 0
  800.     FGet 1, STRING025
  801.     FGet 1, INTEGER002
  802.     FClose 1
  803.     If (Exist(PPEPath() + "Q18N.PV")) Then
  804.         FOpen 1, PPEPath() + "Q18N.PV", 0, 0
  805.         For INTEGER001 = 1 To INTEGER002
  806.             FGet 1, STRING024
  807.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  808.         Next
  809.         FClose 1
  810.         Goto LABEL038
  811.     Endif
  812.     :LABEL038
  813.     FOpen 1, PPEPath() + "Q18.PV", 0, 0
  814.     Gosub LABEL106
  815.     INTEGER004 = ""
  816.     Gosub LABEL108
  817.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  818.     If (INTEGER004 > INTEGER003) Goto LABEL072
  819.     If (INTEGER004 == "") Goto LABEL001
  820.     FAppend 1, PPEPath() + "Q18N.PV", 2, 3
  821.     FPutLn 1, STRING023
  822.     FClose 1
  823.     FOpen 1, PPEPath() + "Q18.PV", 0, 0
  824.     Gosub LABEL106
  825.     INTEGER002 = INTEGER002 + 1
  826.     Gosub LABEL109
  827.     FOpen 1, PPEPath() + "Q18.PV", 1, 0
  828.     Gosub LABEL107
  829.     Goto LABEL001
  830.     :LABEL039
  831.     If (STRING011 == "N") Goto LABEL070
  832.     FOpen 1, PPEPath() + "Q19.PV", 0, 0
  833.     FGet 1, STRING025
  834.     FGet 1, INTEGER002
  835.     FClose 1
  836.     If (Exist(PPEPath() + "Q19N.PV")) Then
  837.         FOpen 1, PPEPath() + "Q19N.PV", 0, 0
  838.         For INTEGER001 = 1 To INTEGER002
  839.             FGet 1, STRING024
  840.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  841.         Next
  842.         FClose 1
  843.         Goto LABEL040
  844.     Endif
  845.     :LABEL040
  846.     FOpen 1, PPEPath() + "Q19.PV", 0, 0
  847.     Gosub LABEL106
  848.     INTEGER004 = ""
  849.     Gosub LABEL108
  850.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  851.     If (INTEGER004 > INTEGER003) Goto LABEL072
  852.     If (INTEGER004 == "") Goto LABEL001
  853.     FAppend 1, PPEPath() + "Q19N.PV", 2, 3
  854.     FPutLn 1, STRING023
  855.     FClose 1
  856.     FOpen 1, PPEPath() + "Q19.PV", 0, 0
  857.     Gosub LABEL106
  858.     INTEGER002 = INTEGER002 + 1
  859.     Gosub LABEL109
  860.     FOpen 1, PPEPath() + "Q19.PV", 1, 0
  861.     Gosub LABEL107
  862.     Goto LABEL001
  863.     :LABEL041
  864.     If (STRING011 == "N") Goto LABEL070
  865.     FOpen 1, PPEPath() + "Q20.PV", 0, 0
  866.     FGet 1, STRING025
  867.     FGet 1, INTEGER002
  868.     FClose 1
  869.     If (Exist(PPEPath() + "Q20N.PV")) Then
  870.         FOpen 1, PPEPath() + "Q20N.PV", 0, 0
  871.         For INTEGER001 = 1 To INTEGER002
  872.             FGet 1, STRING024
  873.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  874.         Next
  875.         FClose 1
  876.         Goto LABEL042
  877.     Endif
  878.     :LABEL042
  879.     FOpen 1, PPEPath() + "Q20.PV", 0, 0
  880.     Gosub LABEL106
  881.     INTEGER004 = ""
  882.     Gosub LABEL108
  883.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  884.     If (INTEGER004 > INTEGER003) Goto LABEL072
  885.     If (INTEGER004 == "") Goto LABEL001
  886.     FAppend 1, PPEPath() + "Q20N.PV", 2, 3
  887.     FPutLn 1, STRING023
  888.     FClose 1
  889.     FOpen 1, PPEPath() + "Q20.PV", 0, 0
  890.     Gosub LABEL106
  891.     INTEGER002 = INTEGER002 + 1
  892.     Gosub LABEL109
  893.     FOpen 1, PPEPath() + "Q20.PV", 1, 0
  894.     Gosub LABEL107
  895.     Goto LABEL001
  896.     :LABEL043
  897.     If (STRING011 == "N") Goto LABEL070
  898.     FOpen 1, PPEPath() + "Q21.PV", 0, 0
  899.     FGet 1, STRING025
  900.     FGet 1, INTEGER002
  901.     FClose 1
  902.     If (Exist(PPEPath() + "Q21N.PV")) Then
  903.         FOpen 1, PPEPath() + "Q21N.PV", 0, 0
  904.         For INTEGER001 = 1 To INTEGER002
  905.             FGet 1, STRING024
  906.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  907.         Next
  908.         FClose 1
  909.         Goto LABEL044
  910.     Endif
  911.     :LABEL044
  912.     FOpen 1, PPEPath() + "Q21.PV", 0, 0
  913.     Gosub LABEL106
  914.     INTEGER004 = ""
  915.     Gosub LABEL108
  916.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  917.     If (INTEGER004 > INTEGER003) Goto LABEL072
  918.     If (INTEGER004 == "0") Goto LABEL001
  919.     If (INTEGER004 == "") Goto LABEL001
  920.     FAppend 1, PPEPath() + "Q21N.PV", 2, 3
  921.     FPutLn 1, STRING023
  922.     FClose 1
  923.     FOpen 1, PPEPath() + "Q21.PV", 0, 0
  924.     Gosub LABEL106
  925.     INTEGER002 = INTEGER002 + 1
  926.     Gosub LABEL109
  927.     FOpen 1, PPEPath() + "Q21.PV", 1, 0
  928.     Gosub LABEL107
  929.     Goto LABEL001
  930.     :LABEL045
  931.     If (STRING011 == "N") Goto LABEL070
  932.     FOpen 1, PPEPath() + "Q22.PV", 0, 0
  933.     FGet 1, STRING025
  934.     FGet 1, INTEGER002
  935.     FClose 1
  936.     If (Exist(PPEPath() + "Q22N.PV")) Then
  937.         FOpen 1, PPEPath() + "Q22N.PV", 0, 0
  938.         For INTEGER001 = 1 To INTEGER002
  939.             FGet 1, STRING024
  940.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  941.         Next
  942.         FClose 1
  943.         Goto LABEL046
  944.     Endif
  945.     :LABEL046
  946.     FOpen 1, PPEPath() + "Q22.PV", 0, 0
  947.     Gosub LABEL106
  948.     INTEGER004 = ""
  949.     Gosub LABEL108
  950.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  951.     If (INTEGER004 > INTEGER003) Goto LABEL072
  952.     If (INTEGER004 == "") Goto LABEL001
  953.     FAppend 1, PPEPath() + "Q22N.PV", 2, 3
  954.     FPutLn 1, STRING023
  955.     FClose 1
  956.     FOpen 1, PPEPath() + "Q22.PV", 0, 0
  957.     Gosub LABEL106
  958.     INTEGER002 = INTEGER002 + 1
  959.     Gosub LABEL109
  960.     FOpen 1, PPEPath() + "Q22.PV", 1, 0
  961.     Gosub LABEL107
  962.     Goto LABEL001
  963.     :LABEL047
  964.     If (STRING011 == "N") Goto LABEL070
  965.     FOpen 1, PPEPath() + "Q23.PV", 0, 0
  966.     FGet 1, STRING025
  967.     FGet 1, INTEGER002
  968.     FClose 1
  969.     If (Exist(PPEPath() + "Q23N.PV")) Then
  970.         FOpen 1, PPEPath() + "Q23N.PV", 0, 0
  971.         For INTEGER001 = 1 To INTEGER002
  972.             FGet 1, STRING024
  973.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  974.         Next
  975.         FClose 1
  976.         Goto LABEL048
  977.     Endif
  978.     :LABEL048
  979.     FOpen 1, PPEPath() + "Q23.PV", 0, 0
  980.     Gosub LABEL106
  981.     INTEGER004 = ""
  982.     Gosub LABEL108
  983.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  984.     If (INTEGER004 > INTEGER003) Goto LABEL072
  985.     If (INTEGER004 == "") Goto LABEL001
  986.     FAppend 1, PPEPath() + "Q23N.PV", 2, 3
  987.     FPutLn 1, STRING023
  988.     FClose 1
  989.     FOpen 1, PPEPath() + "Q23.PV", 0, 0
  990.     Gosub LABEL106
  991.     INTEGER002 = INTEGER002 + 1
  992.     Gosub LABEL109
  993.     FOpen 1, PPEPath() + "Q23.PV", 1, 0
  994.     Gosub LABEL107
  995.     Goto LABEL001
  996.     :LABEL049
  997.     If (STRING011 == "N") Goto LABEL070
  998.     FOpen 1, PPEPath() + "Q24.PV", 0, 0
  999.     FGet 1, STRING025
  1000.     FGet 1, INTEGER002
  1001.     FClose 1
  1002.     If (Exist(PPEPath() + "Q24N.PV")) Then
  1003.         FOpen 1, PPEPath() + "Q24N.PV", 0, 0
  1004.         For INTEGER001 = 1 To INTEGER002
  1005.             FGet 1, STRING024
  1006.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  1007.         Next
  1008.         FClose 1
  1009.         Goto LABEL050
  1010.     Endif
  1011.     :LABEL050
  1012.     FOpen 1, PPEPath() + "Q24.PV", 0, 0
  1013.     Gosub LABEL106
  1014.     INTEGER004 = ""
  1015.     Gosub LABEL108
  1016.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  1017.     If (INTEGER004 > INTEGER003) Goto LABEL072
  1018.     If (INTEGER004 == "") Goto LABEL001
  1019.     FAppend 1, PPEPath() + "Q24N.PV", 2, 3
  1020.     FPutLn 1, STRING023
  1021.     FClose 1
  1022.     FOpen 1, PPEPath() + "Q24.PV", 0, 0
  1023.     Gosub LABEL106
  1024.     INTEGER002 = INTEGER002 + 1
  1025.     Gosub LABEL109
  1026.     FOpen 1, PPEPath() + "Q24.PV", 1, 0
  1027.     Gosub LABEL107
  1028.     Goto LABEL001
  1029.     :LABEL051
  1030.     If (STRING011 == "N") Goto LABEL070
  1031.     FOpen 1, PPEPath() + "Q25.PV", 0, 0
  1032.     FGet 1, STRING025
  1033.     FGet 1, INTEGER002
  1034.     FClose 1
  1035.     If (Exist(PPEPath() + "Q25N.PV")) Then
  1036.         FOpen 1, PPEPath() + "Q25N.PV", 0, 0
  1037.         For INTEGER001 = 1 To INTEGER002
  1038.             FGet 1, STRING024
  1039.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  1040.         Next
  1041.         FClose 1
  1042.         Goto LABEL052
  1043.     Endif
  1044.     :LABEL052
  1045.     FOpen 1, PPEPath() + "Q25.PV", 0, 0
  1046.     Gosub LABEL106
  1047.     INTEGER004 = ""
  1048.     Gosub LABEL108
  1049.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  1050.     If (INTEGER004 > INTEGER003) Goto LABEL072
  1051.     If (INTEGER004 == "") Goto LABEL001
  1052.     FAppend 1, PPEPath() + "Q25N.PV", 2, 3
  1053.     FPutLn 1, STRING023
  1054.     FClose 1
  1055.     FOpen 1, PPEPath() + "Q25.PV", 0, 0
  1056.     Gosub LABEL106
  1057.     INTEGER002 = INTEGER002 + 1
  1058.     Gosub LABEL109
  1059.     FOpen 1, PPEPath() + "Q25.PV", 1, 0
  1060.     Gosub LABEL107
  1061.     Goto LABEL001
  1062.     :LABEL053
  1063.     If (STRING011 == "N") Goto LABEL070
  1064.     FOpen 1, PPEPath() + "Q26.PV", 0, 0
  1065.     FGet 1, STRING025
  1066.     FGet 1, INTEGER002
  1067.     FClose 1
  1068.     If (Exist(PPEPath() + "Q26N.PV")) Then
  1069.         FOpen 1, PPEPath() + "Q26N.PV", 0, 0
  1070.         For INTEGER001 = 1 To INTEGER002
  1071.             FGet 1, STRING024
  1072.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  1073.         Next
  1074.         FClose 1
  1075.         Goto LABEL054
  1076.     Endif
  1077.     :LABEL054
  1078.     FOpen 1, PPEPath() + "Q26.PV", 0, 0
  1079.     Gosub LABEL106
  1080.     INTEGER004 = ""
  1081.     Gosub LABEL108
  1082.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  1083.     If (INTEGER004 > INTEGER003) Goto LABEL072
  1084.     If (INTEGER004 == "0") Goto LABEL001
  1085.     If (INTEGER004 == "") Goto LABEL001
  1086.     FAppend 1, PPEPath() + "Q26N.PV", 2, 3
  1087.     FPutLn 1, STRING023
  1088.     FClose 1
  1089.     FOpen 1, PPEPath() + "Q26.PV", 0, 0
  1090.     Gosub LABEL106
  1091.     INTEGER002 = INTEGER002 + 1
  1092.     Gosub LABEL109
  1093.     FOpen 1, PPEPath() + "Q26.PV", 1, 0
  1094.     Gosub LABEL107
  1095.     Goto LABEL001
  1096.     :LABEL055
  1097.     If (STRING011 == "N") Goto LABEL070
  1098.     FOpen 1, PPEPath() + "Q27.PV", 0, 0
  1099.     FGet 1, STRING025
  1100.     FGet 1, INTEGER002
  1101.     FClose 1
  1102.     If (Exist(PPEPath() + "Q27N.PV")) Then
  1103.         FOpen 1, PPEPath() + "Q27N.PV", 0, 0
  1104.         For INTEGER001 = 1 To INTEGER002
  1105.             FGet 1, STRING024
  1106.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  1107.         Next
  1108.         FClose 1
  1109.         Goto LABEL056
  1110.     Endif
  1111.     :LABEL056
  1112.     FOpen 1, PPEPath() + "Q27.PV", 0, 0
  1113.     Gosub LABEL106
  1114.     INTEGER004 = ""
  1115.     Gosub LABEL108
  1116.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  1117.     If (INTEGER004 > INTEGER003) Goto LABEL072
  1118.     If (INTEGER004 == "") Goto LABEL001
  1119.     FAppend 1, PPEPath() + "Q27N.PV", 2, 3
  1120.     FPutLn 1, STRING023
  1121.     FClose 1
  1122.     FOpen 1, PPEPath() + "Q27.PV", 0, 0
  1123.     Gosub LABEL106
  1124.     INTEGER002 = INTEGER002 + 1
  1125.     Gosub LABEL109
  1126.     FOpen 1, PPEPath() + "Q27.PV", 1, 0
  1127.     Gosub LABEL107
  1128.     Goto LABEL001
  1129.     :LABEL057
  1130.     If (STRING011 == "N") Goto LABEL070
  1131.     FOpen 1, PPEPath() + "Q28.PV", 0, 0
  1132.     FGet 1, STRING025
  1133.     FGet 1, INTEGER002
  1134.     FClose 1
  1135.     If (Exist(PPEPath() + "Q28N.PV")) Then
  1136.         FOpen 1, PPEPath() + "Q28N.PV", 0, 0
  1137.         For INTEGER001 = 1 To INTEGER002
  1138.             FGet 1, STRING024
  1139.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  1140.         Next
  1141.         FClose 1
  1142.         Goto LABEL058
  1143.     Endif
  1144.     :LABEL058
  1145.     FOpen 1, PPEPath() + "Q28.PV", 0, 0
  1146.     Gosub LABEL106
  1147.     INTEGER004 = ""
  1148.     Gosub LABEL108
  1149.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  1150.     If (INTEGER004 > INTEGER003) Goto LABEL072
  1151.     If (INTEGER004 == "") Goto LABEL001
  1152.     FAppend 1, PPEPath() + "Q28N.PV", 2, 3
  1153.     FPutLn 1, STRING023
  1154.     FClose 1
  1155.     FOpen 1, PPEPath() + "Q28.PV", 0, 0
  1156.     Gosub LABEL106
  1157.     INTEGER002 = INTEGER002 + 1
  1158.     Gosub LABEL109
  1159.     FOpen 1, PPEPath() + "Q28.PV", 1, 0
  1160.     Gosub LABEL107
  1161.     Goto LABEL001
  1162.     :LABEL059
  1163.     If (STRING011 == "N") Goto LABEL070
  1164.     FOpen 1, PPEPath() + "Q29.PV", 0, 0
  1165.     FGet 1, STRING025
  1166.     FGet 1, INTEGER002
  1167.     FClose 1
  1168.     If (Exist(PPEPath() + "Q29N.PV")) Then
  1169.         FOpen 1, PPEPath() + "Q29N.PV", 0, 0
  1170.         For INTEGER001 = 1 To INTEGER002
  1171.             FGet 1, STRING024
  1172.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  1173.         Next
  1174.         FClose 1
  1175.         Goto LABEL060
  1176.     Endif
  1177.     :LABEL060
  1178.     FOpen 1, PPEPath() + "Q29.PV", 0, 0
  1179.     Gosub LABEL106
  1180.     INTEGER004 = ""
  1181.     Gosub LABEL108
  1182.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  1183.     If (INTEGER004 > INTEGER003) Goto LABEL072
  1184.     If (INTEGER004 == "") Goto LABEL001
  1185.     FAppend 1, PPEPath() + "Q29N.PV", 2, 3
  1186.     FPutLn 1, STRING023
  1187.     FClose 1
  1188.     FOpen 1, PPEPath() + "Q29.PV", 0, 0
  1189.     Gosub LABEL106
  1190.     INTEGER002 = INTEGER002 + 1
  1191.     Gosub LABEL109
  1192.     FOpen 1, PPEPath() + "Q29.PV", 1, 0
  1193.     Gosub LABEL107
  1194.     Goto LABEL001
  1195.     :LABEL061
  1196.     If (STRING011 == "N") Goto LABEL070
  1197.     FOpen 1, PPEPath() + "Q30.PV", 0, 0
  1198.     FGet 1, STRING025
  1199.     FGet 1, INTEGER002
  1200.     FClose 1
  1201.     If (Exist(PPEPath() + "Q30N.PV")) Then
  1202.         FOpen 1, PPEPath() + "Q30N.PV", 0, 0
  1203.         For INTEGER001 = 1 To INTEGER002
  1204.             FGet 1, STRING024
  1205.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  1206.         Next
  1207.         FClose 1
  1208.         Goto LABEL062
  1209.     Endif
  1210.     :LABEL062
  1211.     FOpen 1, PPEPath() + "Q30.PV", 0, 0
  1212.     Gosub LABEL106
  1213.     INTEGER004 = ""
  1214.     Gosub LABEL108
  1215.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  1216.     If (INTEGER004 > INTEGER003) Goto LABEL072
  1217.     If (INTEGER004 == "") Goto LABEL001
  1218.     FAppend 1, PPEPath() + "Q30N.PV", 2, 3
  1219.     FPutLn 1, STRING023
  1220.     FClose 1
  1221.     FOpen 1, PPEPath() + "Q30.PV", 0, 0
  1222.     Gosub LABEL106
  1223.     INTEGER002 = INTEGER002 + 1
  1224.     Gosub LABEL109
  1225.     FOpen 1, PPEPath() + "Q30.PV", 1, 0
  1226.     Gosub LABEL107
  1227.     Goto LABEL001
  1228.     :LABEL063
  1229.     If (STRING011 == "N") Goto LABEL070
  1230.     FOpen 1, PPEPath() + "Q31.PV", 0, 0
  1231.     FGet 1, STRING025
  1232.     FGet 1, INTEGER002
  1233.     FClose 1
  1234.     If (Exist(PPEPath() + "Q31N.PV")) Then
  1235.         FOpen 1, PPEPath() + "Q31N.PV", 0, 0
  1236.         For INTEGER001 = 1 To INTEGER002
  1237.             FGet 1, STRING024
  1238.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  1239.         Next
  1240.         FClose 1
  1241.         Goto LABEL064
  1242.     Endif
  1243.     :LABEL064
  1244.     FOpen 1, PPEPath() + "Q31.PV", 0, 0
  1245.     Gosub LABEL106
  1246.     INTEGER004 = ""
  1247.     Gosub LABEL108
  1248.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  1249.     If (INTEGER004 > INTEGER003) Goto LABEL072
  1250.     If (INTEGER004 == "0") Goto LABEL001
  1251.     If (INTEGER004 == "") Goto LABEL001
  1252.     FAppend 1, PPEPath() + "Q31N.PV", 2, 3
  1253.     FPutLn 1, STRING023
  1254.     FClose 1
  1255.     FOpen 1, PPEPath() + "Q31.PV", 0, 0
  1256.     Gosub LABEL106
  1257.     INTEGER002 = INTEGER002 + 1
  1258.     Gosub LABEL109
  1259.     FOpen 1, PPEPath() + "Q31.PV", 1, 0
  1260.     Gosub LABEL107
  1261.     Goto LABEL001
  1262.     :LABEL065
  1263.     If (STRING011 == "N") Goto LABEL070
  1264.     FOpen 1, PPEPath() + "Q32.PV", 0, 0
  1265.     FGet 1, STRING025
  1266.     FGet 1, INTEGER002
  1267.     FClose 1
  1268.     If (Exist(PPEPath() + "Q32N.PV")) Then
  1269.         FOpen 1, PPEPath() + "Q32N.PV", 0, 0
  1270.         For INTEGER001 = 1 To INTEGER002
  1271.             FGet 1, STRING024
  1272.             If (U_Name() == Upper(STRING024)) Goto LABEL069
  1273.         Next
  1274.         FClose 1
  1275.         Goto LABEL066
  1276.     Endif
  1277.     :LABEL066
  1278.     FOpen 1, PPEPath() + "Q32.PV", 0, 0
  1279.     Gosub LABEL106
  1280.     INTEGER004 = ""
  1281.     Gosub LABEL108
  1282.     InputStr STRING025, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  1283.     If (INTEGER004 > INTEGER003) Goto LABEL072
  1284.     If (INTEGER004 == "") Goto LABEL001
  1285.     FAppend 1, PPEPath() + "Q32N.PV", 2, 3
  1286.     FPutLn 1, STRING023
  1287.     FClose 1
  1288.     FOpen 1, PPEPath() + "Q32.PV", 0, 0
  1289.     Gosub LABEL106
  1290.     INTEGER002 = INTEGER002 + 1
  1291.     Gosub LABEL109
  1292.     FOpen 1, PPEPath() + "Q32.PV", 1, 0
  1293.     Gosub LABEL107
  1294.     Goto LABEL001
  1295.     :LABEL067
  1296.     INTEGER004 = ""
  1297.     InputStr "Select Questionnaire/Poll to view", INTEGER004, 11, 2, Mask_Num(), 2 + 128
  1298.     If (INTEGER004 > INTEGER005) Goto LABEL001
  1299.     If (INTEGER004 == 0) Goto LABEL001
  1300.     If (INTEGER004 == 1) Gosub LABEL074
  1301.     If (INTEGER004 == 2) Gosub LABEL075
  1302.     If (INTEGER004 == 3) Gosub LABEL076
  1303.     If (INTEGER004 == 4) Gosub LABEL077
  1304.     If (INTEGER004 == 5) Gosub LABEL078
  1305.     If (INTEGER004 == 6) Gosub LABEL079
  1306.     If (INTEGER004 == 7) Gosub LABEL080
  1307.     If (INTEGER004 == 8) Gosub LABEL081
  1308.     If (INTEGER004 == 9) Gosub LABEL082
  1309.     If (INTEGER004 == 10) Gosub LABEL083
  1310.     If (INTEGER004 == 11) Gosub LABEL084
  1311.     If (INTEGER004 == 12) Gosub LABEL085
  1312.     If (INTEGER004 == 13) Gosub LABEL086
  1313.     If (INTEGER004 == 14) Gosub LABEL087
  1314.     If (INTEGER004 == 15) Gosub LABEL088
  1315.     If (INTEGER004 == 16) Gosub LABEL089
  1316.     If (INTEGER004 == 17) Gosub LABEL090
  1317.     If (INTEGER004 == 18) Gosub LABEL091
  1318.     If (INTEGER004 == 19) Gosub LABEL092
  1319.     If (INTEGER004 == 20) Gosub LABEL093
  1320.     If (INTEGER004 == 21) Gosub LABEL094
  1321.     If (INTEGER004 == 22) Gosub LABEL095
  1322.     If (INTEGER004 == 23) Gosub LABEL096
  1323.     If (INTEGER004 == 24) Gosub LABEL097
  1324.     If (INTEGER004 == 25) Gosub LABEL098
  1325.     If (INTEGER004 == 26) Gosub LABEL099
  1326.     If (INTEGER004 == 27) Gosub LABEL100
  1327.     If (INTEGER004 == 28) Gosub LABEL101
  1328.     If (INTEGER004 == 29) Gosub LABEL102
  1329.     If (INTEGER004 == 30) Gosub LABEL103
  1330.     If (INTEGER004 == 31) Gosub LABEL104
  1331.     If (INTEGER004 == 32) Gosub LABEL105
  1332.     Gosub LABEL106
  1333.     Cls
  1334.     PrintLn "@X0F", INTEGER002, " @X0BResponses to the question:"
  1335.     PrintLn STRING025
  1336.     PrintLn 
  1337.     PrintLn "@X0FVotes @X0EOptions..."
  1338.     PrintLn "@X0F===== @X0E==========@X0B"
  1339.     If (Len(INTEGER006) == 1) STRING026 = "   "
  1340.     If (Len(INTEGER006) == 2) STRING026 = "  "
  1341.     If (Len(INTEGER006) == 3) STRING026 = " "
  1342.     If (Len(INTEGER006) == 4) STRING026 = ""
  1343.     If (INTEGER003 >= 1) Then
  1344.         PrintLn STRING026, INTEGER006, "  1  ", STRING012
  1345.     Else
  1346.         Goto LABEL068
  1347.     Endif
  1348.     If (Len(INTEGER007) == 1) STRING026 = "   "
  1349.     If (Len(INTEGER007) == 2) STRING026 = "  "
  1350.     If (Len(INTEGER007) == 3) STRING026 = " "
  1351.     If (Len(INTEGER007) == 4) STRING026 = ""
  1352.     If (INTEGER003 >= 2) Then
  1353.         PrintLn STRING026, INTEGER007, "  2  ", STRING013
  1354.     Else
  1355.         Goto LABEL068
  1356.     Endif
  1357.     If (Len(INTEGER008) == 1) STRING026 = "   "
  1358.     If (Len(INTEGER008) == 2) STRING026 = "  "
  1359.     If (Len(INTEGER008) == 3) STRING026 = " "
  1360.     If (Len(INTEGER008) == 4) STRING026 = ""
  1361.     If (INTEGER003 >= 3) Then
  1362.         PrintLn STRING026, INTEGER008, "  3  ", STRING014
  1363.     Else
  1364.         Goto LABEL068
  1365.     Endif
  1366.     If (Len(INTEGER009) == 1) STRING026 = "   "
  1367.     If (Len(INTEGER009) == 2) STRING026 = "  "
  1368.     If (Len(INTEGER009) == 3) STRING026 = " "
  1369.     If (Len(INTEGER009) == 4) STRING026 = ""
  1370.     If (INTEGER003 >= 4) Then
  1371.         PrintLn STRING026, INTEGER009, "  4  ", STRING015
  1372.     Else
  1373.         Goto LABEL068
  1374.     Endif
  1375.     If (Len(INTEGER010) == 1) STRING026 = "   "
  1376.     If (Len(INTEGER010) == 2) STRING026 = "  "
  1377.     If (Len(INTEGER010) == 3) STRING026 = " "
  1378.     If (Len(INTEGER010) == 4) STRING026 = ""
  1379.     If (INTEGER003 >= 5) Then
  1380.         PrintLn STRING026, INTEGER010, "  5  ", STRING016
  1381.     Else
  1382.         Goto LABEL068
  1383.     Endif
  1384.     If (Len(INTEGER011) == 1) STRING026 = "   "
  1385.     If (Len(INTEGER011) == 2) STRING026 = "  "
  1386.     If (Len(INTEGER011) == 3) STRING026 = " "
  1387.     If (Len(INTEGER011) == 4) STRING026 = ""
  1388.     If (INTEGER003 >= 6) Then
  1389.         PrintLn STRING026, INTEGER011, "  6  ", STRING017
  1390.     Else
  1391.         Goto LABEL068
  1392.     Endif
  1393.     If (Len(INTEGER012) == 1) STRING026 = "   "
  1394.     If (Len(INTEGER012) == 2) STRING026 = "  "
  1395.     If (Len(INTEGER012) == 3) STRING026 = " "
  1396.     If (Len(INTEGER012) == 4) STRING026 = ""
  1397.     If (INTEGER003 >= 7) Then
  1398.         PrintLn STRING026, INTEGER012, "  7  ", STRING018
  1399.     Else
  1400.         Goto LABEL068
  1401.     Endif
  1402.     If (Len(INTEGER013) == 1) STRING026 = "   "
  1403.     If (Len(INTEGER013) == 2) STRING026 = "  "
  1404.     If (Len(INTEGER013) == 3) STRING026 = " "
  1405.     If (Len(INTEGER013) == 4) STRING026 = ""
  1406.     If (INTEGER003 >= 8) Then
  1407.         PrintLn STRING026, INTEGER013, "  8  ", STRING019
  1408.     Else
  1409.         Goto LABEL068
  1410.     Endif
  1411.     If (Len(INTEGER014) == 1) STRING026 = "   "
  1412.     If (Len(INTEGER014) == 2) STRING026 = "  "
  1413.     If (Len(INTEGER014) == 3) STRING026 = " "
  1414.     If (Len(INTEGER014) == 4) STRING026 = ""
  1415.     If (INTEGER003 >= 9) Then
  1416.         PrintLn STRING026, INTEGER014, "  9  ", STRING020
  1417.     Else
  1418.         Goto LABEL068
  1419.     Endif
  1420.     If (Len(INTEGER015) == 1) STRING026 = "   "
  1421.     If (Len(INTEGER015) == 2) STRING026 = "  "
  1422.     If (Len(INTEGER015) == 3) STRING026 = " "
  1423.     If (Len(INTEGER015) == 4) STRING026 = ""
  1424.     If (INTEGER003 >= 10) Then
  1425.         PrintLn STRING026, INTEGER015, " 10  ", STRING021
  1426.     Else
  1427.         Goto LABEL068
  1428.     Endif
  1429.     :LABEL068
  1430.     PrintLn 
  1431.     Wait
  1432.     Goto LABEL001
  1433.     :LABEL069
  1434.     FClose 1
  1435.     PrintLn 
  1436.     PrintLn "@X0CSorry, you already answered this one..."
  1437.     PrintLn 
  1438.     Wait
  1439.     Goto LABEL001
  1440.     :LABEL070
  1441.     PrintLn 
  1442.     PrintLn "@X0CSorry, the UnRegistered version supports only one Poll."
  1443.     PrintLn "@X0CThe Registered version of Pro-Vote supports  32  Polls."
  1444.     PrintLn "@X0CRegistration is only $10 and removes any delays/limits!"
  1445.     PrintLn "@X0CPlease help your SysOp to support shareware. Thank you."
  1446.     PrintLn 
  1447.     Delay 91
  1448.     Goto LABEL001
  1449.     :LABEL071
  1450.     PrintLn 
  1451.     PrintLn "@X0C Config Error - Problem With Config File - Please inform SysOp"
  1452.     End
  1453.     :LABEL072
  1454.     PrintLn 
  1455.     PrintLn "@X0C Config Error - Problem With Answer File - Please inform SysOp"
  1456.     End
  1457.     :LABEL073
  1458.     Cls
  1459.     PrintLn 
  1460.     PrintLn "                       @X50┌──────────────────────────────@X5D┐@X0D"
  1461.     PrintLn "                       @X50│        @X5APro-Vote  v", STRING022, "        @X5D│@X0D"
  1462.     PrintLn "                       @X50│                              @X5D│@X0D"
  1463.     If (STRING011 == "N") Then
  1464.         PrintLn "                       @X50│         @X51UNREGISTERED         @X5D│@X07"
  1465.         PrintLn "                       @X50│                              @X5D│@X0D"
  1466.         PrintLn "                       @X50│   @X5BRegistration is only $10   @X5D│@X07"
  1467.         PrintLn "                       @X50│@X5BPlease help support shareware.@X5D│@X07"
  1468.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  1469.         Beep
  1470.         Delay 182
  1471.     Else
  1472.         PrintLn "                       @X50│          @X5BReg # ", STRING005, "    @POS:55@@X5D│@X07"
  1473.         PrintLn "                       @X50│@X5B", STRING002, STRING001, "@POS:55@@X5D│@X07"
  1474.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  1475.         PrintLn 
  1476.         PrintLn 
  1477.         PrintLn 
  1478.         Delay 50
  1479.     Endif
  1480.     End
  1481.     :LABEL074
  1482.     FOpen 1, PPEPath() + "Q01.PV", 0, 0
  1483.     Return
  1484.     :LABEL075
  1485.     If (STRING011 == "N") Goto LABEL070
  1486.     FOpen 1, PPEPath() + "Q02.PV", 0, 0
  1487.     Return
  1488.     :LABEL076
  1489.     If (STRING011 == "N") Goto LABEL070
  1490.     FOpen 1, PPEPath() + "Q03.PV", 0, 0
  1491.     Return
  1492.     :LABEL077
  1493.     If (STRING011 == "N") Goto LABEL070
  1494.     FOpen 1, PPEPath() + "Q04.PV", 0, 0
  1495.     Return
  1496.     :LABEL078
  1497.     If (STRING011 == "N") Goto LABEL070
  1498.     FOpen 1, PPEPath() + "Q05.PV", 0, 0
  1499.     Return
  1500.     :LABEL079
  1501.     If (STRING011 == "N") Goto LABEL070
  1502.     FOpen 1, PPEPath() + "Q06.PV", 0, 0
  1503.     Return
  1504.     :LABEL080
  1505.     If (STRING011 == "N") Goto LABEL070
  1506.     FOpen 1, PPEPath() + "Q07.PV", 0, 0
  1507.     Return
  1508.     :LABEL081
  1509.     If (STRING011 == "N") Goto LABEL070
  1510.     FOpen 1, PPEPath() + "Q08.PV", 0, 0
  1511.     Return
  1512.     :LABEL082
  1513.     If (STRING011 == "N") Goto LABEL070
  1514.     FOpen 1, PPEPath() + "Q09.PV", 0, 0
  1515.     Return
  1516.     :LABEL083
  1517.     If (STRING011 == "N") Goto LABEL070
  1518.     FOpen 1, PPEPath() + "Q10.PV", 0, 0
  1519.     Return
  1520.     :LABEL084
  1521.     If (STRING011 == "N") Goto LABEL070
  1522.     FOpen 1, PPEPath() + "Q11.PV", 0, 0
  1523.     Return
  1524.     :LABEL085
  1525.     If (STRING011 == "N") Goto LABEL070
  1526.     FOpen 1, PPEPath() + "Q12.PV", 0, 0
  1527.     Return
  1528.     :LABEL086
  1529.     If (STRING011 == "N") Goto LABEL070
  1530.     FOpen 1, PPEPath() + "Q13.PV", 0, 0
  1531.     Return
  1532.     :LABEL087
  1533.     If (STRING011 == "N") Goto LABEL070
  1534.     FOpen 1, PPEPath() + "Q14.PV", 0, 0
  1535.     Return
  1536.     :LABEL088
  1537.     If (STRING011 == "N") Goto LABEL070
  1538.     FOpen 1, PPEPath() + "Q15.PV", 0, 0
  1539.     Return
  1540.     :LABEL089
  1541.     If (STRING011 == "N") Goto LABEL070
  1542.     FOpen 1, PPEPath() + "Q16.PV", 0, 0
  1543.     Return
  1544.     :LABEL090
  1545.     If (STRING011 == "N") Goto LABEL070
  1546.     FOpen 1, PPEPath() + "Q17.PV", 0, 0
  1547.     Return
  1548.     :LABEL091
  1549.     If (STRING011 == "N") Goto LABEL070
  1550.     FOpen 1, PPEPath() + "Q18.PV", 0, 0
  1551.     Return
  1552.     :LABEL092
  1553.     If (STRING011 == "N") Goto LABEL070
  1554.     FOpen 1, PPEPath() + "Q19.PV", 0, 0
  1555.     Return
  1556.     :LABEL093
  1557.     If (STRING011 == "N") Goto LABEL070
  1558.     FOpen 1, PPEPath() + "Q20.PV", 0, 0
  1559.     Return
  1560.     :LABEL094
  1561.     If (STRING011 == "N") Goto LABEL070
  1562.     FOpen 1, PPEPath() + "Q21.PV", 0, 0
  1563.     Return
  1564.     :LABEL095
  1565.     If (STRING011 == "N") Goto LABEL070
  1566.     FOpen 1, PPEPath() + "Q22.PV", 0, 0
  1567.     Return
  1568.     :LABEL096
  1569.     If (STRING011 == "N") Goto LABEL070
  1570.     FOpen 1, PPEPath() + "Q23.PV", 0, 0
  1571.     Return
  1572.     :LABEL097
  1573.     If (STRING011 == "N") Goto LABEL070
  1574.     FOpen 1, PPEPath() + "Q24.PV", 0, 0
  1575.     Return
  1576.     :LABEL098
  1577.     If (STRING011 == "N") Goto LABEL070
  1578.     FOpen 1, PPEPath() + "Q25.PV", 0, 0
  1579.     Return
  1580.     :LABEL099
  1581.     If (STRING011 == "N") Goto LABEL070
  1582.     FOpen 1, PPEPath() + "Q26.PV", 0, 0
  1583.     Return
  1584.     :LABEL100
  1585.     If (STRING011 == "N") Goto LABEL070
  1586.     FOpen 1, PPEPath() + "Q27.PV", 0, 0
  1587.     Return
  1588.     :LABEL101
  1589.     If (STRING011 == "N") Goto LABEL070
  1590.     FOpen 1, PPEPath() + "Q28.PV", 0, 0
  1591.     Return
  1592.     :LABEL102
  1593.     If (STRING011 == "N") Goto LABEL070
  1594.     FOpen 1, PPEPath() + "Q29.PV", 0, 0
  1595.     Return
  1596.     :LABEL103
  1597.     If (STRING011 == "N") Goto LABEL070
  1598.     FOpen 1, PPEPath() + "Q30.PV", 0, 0
  1599.     Return
  1600.     :LABEL104
  1601.     If (STRING011 == "N") Goto LABEL070
  1602.     FOpen 1, PPEPath() + "Q31.PV", 0, 0
  1603.     Return
  1604.     :LABEL105
  1605.     If (STRING011 == "N") Goto LABEL070
  1606.     FOpen 1, PPEPath() + "Q32.PV", 0, 0
  1607.     Return
  1608.     :LABEL106
  1609.     FGet 1, STRING025
  1610.     FGet 1, INTEGER002
  1611.     FGet 1, INTEGER003
  1612.     FGet 1, STRING012
  1613.     FGet 1, INTEGER006
  1614.     FGet 1, STRING013
  1615.     FGet 1, INTEGER007
  1616.     FGet 1, STRING014
  1617.     FGet 1, INTEGER008
  1618.     FGet 1, STRING015
  1619.     FGet 1, INTEGER009
  1620.     FGet 1, STRING016
  1621.     FGet 1, INTEGER010
  1622.     FGet 1, STRING017
  1623.     FGet 1, INTEGER011
  1624.     FGet 1, STRING018
  1625.     FGet 1, INTEGER012
  1626.     FGet 1, STRING019
  1627.     FGet 1, INTEGER013
  1628.     FGet 1, STRING020
  1629.     FGet 1, INTEGER014
  1630.     FGet 1, STRING021
  1631.     FGet 1, INTEGER015
  1632.     FClose 1
  1633.     Return
  1634.     :LABEL107
  1635.     FPutLn 1, STRING025
  1636.     FPutLn 1, INTEGER002
  1637.     FPutLn 1, INTEGER003
  1638.     FPutLn 1, STRING012
  1639.     FPutLn 1, INTEGER006
  1640.     FPutLn 1, STRING013
  1641.     FPutLn 1, INTEGER007
  1642.     FPutLn 1, STRING014
  1643.     FPutLn 1, INTEGER008
  1644.     FPutLn 1, STRING015
  1645.     FPutLn 1, INTEGER009
  1646.     FPutLn 1, STRING016
  1647.     FPutLn 1, INTEGER010
  1648.     FPutLn 1, STRING017
  1649.     FPutLn 1, INTEGER011
  1650.     FPutLn 1, STRING018
  1651.     FPutLn 1, INTEGER012
  1652.     FPutLn 1, STRING019
  1653.     FPutLn 1, INTEGER013
  1654.     FPutLn 1, STRING020
  1655.     FPutLn 1, INTEGER014
  1656.     FPutLn 1, STRING021
  1657.     FPutLn 1, INTEGER015
  1658.     FClose 1
  1659.     Return
  1660.     :LABEL108
  1661.     Cls
  1662.     PrintLn 
  1663.     If (INTEGER003 >= 1) PrintLn " 1  ", STRING012
  1664.     If (INTEGER003 >= 2) PrintLn " 2  ", STRING013
  1665.     If (INTEGER003 >= 3) PrintLn " 3  ", STRING014
  1666.     If (INTEGER003 >= 4) PrintLn " 4  ", STRING015
  1667.     If (INTEGER003 >= 5) PrintLn " 5  ", STRING016
  1668.     If (INTEGER003 >= 6) PrintLn " 6  ", STRING017
  1669.     If (INTEGER003 >= 7) PrintLn " 7  ", STRING018
  1670.     If (INTEGER003 >= 8) PrintLn " 8  ", STRING019
  1671.     If (INTEGER003 >= 9) PrintLn " 9  ", STRING020
  1672.     If (INTEGER003 >= 10) PrintLn "10  ", STRING021
  1673.     Return
  1674.     :LABEL109
  1675.     If (INTEGER004 == 1) INTEGER006 = INTEGER006 + 1
  1676.     If (INTEGER004 == 2) INTEGER007 = INTEGER007 + 1
  1677.     If (INTEGER004 == 3) INTEGER008 = INTEGER008 + 1
  1678.     If (INTEGER004 == 4) INTEGER009 = INTEGER009 + 1
  1679.     If (INTEGER004 == 5) INTEGER010 = INTEGER010 + 1
  1680.     If (INTEGER004 == 6) INTEGER011 = INTEGER011 + 1
  1681.     If (INTEGER004 == 7) INTEGER012 = INTEGER012 + 1
  1682.     If (INTEGER004 == 8) INTEGER013 = INTEGER013 + 1
  1683.     If (INTEGER004 == 9) INTEGER014 = INTEGER014 + 1
  1684.     If (INTEGER004 == 10) INTEGER015 = INTEGER015 + 1
  1685.     Return
  1686.  
  1687. ;------------------------------------------------------------------------------
  1688. ;
  1689. ; Usage report (before postprocessing)
  1690. ;
  1691. ; ■ Statements used :
  1692. ;
  1693. ;    4       End
  1694. ;    6       Cls
  1695. ;    3       Wait
  1696. ;    406     Goto 
  1697. ;    248     Let 
  1698. ;    78      PrintLn 
  1699. ;    429     If 
  1700. ;    1       DispFile 
  1701. ;    193     FOpen 
  1702. ;    32      FAppend 
  1703. ;    100     FClose 
  1704. ;    124     FGet 
  1705. ;    55      FPutLn 
  1706. ;    1       GetUser
  1707. ;    35      InputStr 
  1708. ;    193     Gosub 
  1709. ;    36      Return
  1710. ;    5       Delay 
  1711. ;    1       Tokenize 
  1712. ;    2       GetToken 
  1713. ;    2       Beep
  1714. ;
  1715. ;
  1716. ; ■ Functions used :
  1717. ;
  1718. ;    373     +
  1719. ;    311     ==
  1720. ;    32      <
  1721. ;    32      <=
  1722. ;    34      >
  1723. ;    84      >=
  1724. ;    78      !
  1725. ;    64      &&
  1726. ;    32      ||
  1727. ;    70      Len(
  1728. ;    32      Upper()
  1729. ;    2       Left()
  1730. ;    33      U_Name()
  1731. ;    1       Mask_Alpha()
  1732. ;    34      Mask_Num()
  1733. ;    257     PPEPath()
  1734. ;    32      Exist()
  1735. ;    1       S2I()
  1736. ;
  1737. ;------------------------------------------------------------------------------
  1738. ;
  1739. ; Analysis flags : No flag
  1740. ;
  1741. ;------------------------------------------------------------------------------
  1742. ;
  1743. ; Postprocessing report
  1744. ;
  1745. ;    32      For/Next
  1746. ;    0       While/EndWhile
  1747. ;    46      If/Then or If/Then/Else
  1748. ;    0       Select Case
  1749. ;
  1750. ;------------------------------------------------------------------------------
  1751. ;                 AEGiS Corp - Break the routines, code against the machines!
  1752. ;------------------------------------------------------------------------------
  1753.